TPUG - Toronto PET Users Group/TPUG Users Group CD/TPUG Users Group CD.iso/C64/E-Education/(c)ed44a.d64/add 5 to 7 p

Commodore BASIC | 2007-02-04 | 5KB | 163 lines

100 POKE53280,0:POKE53281,0:POKE53272,23:Y=1:K=0:W=0:C=0:R=0
102 PRINT"[147][155]            [215][200][195][160][197]NTERPRISES            ":GOSUB290:GOSUB260
105 PRINT"[159]                                        [146]";
110 PRINT"                                        [146]";
115 PRINT"          [200][197][204][197][206]'[211]  [194][193][211][201][195] [205][193][212][200]           [146]";
120 PRINT"[159]                                        [146]";:GOSUB291:GOSUB260
125 PRINT"          [193][196][196][201][212][201][207][206][160][208][210][193][195][212][201][195][197] 6           [146]";:GOSUB291:GOSUB260
130 PRINT"[159]                WITH                    [146]";
135 PRINT"          NUMBERS FROM 5 TO 7           [146]";
140 PRINT"[159]                                        [146]";
145 PRINT"                                        [146]"
150 GOSUB 291:GOSUB480
155 PRINT"[147]":GOSUB291
160 PRINT"[147][153] [201]N THIS UNIT WE PRACTISE ADDING WITH
165 [153]" NUMBERS FROM 5SYS TO 7PRINT."
170 [141]292:[141]460
175 [153]"LOAD":[141]291
180 [153]"LOADPRINT (null)HAT IS YOUR NAME?":[141]260
182 [133] N$
184 [153]"LOAD ATNND AWAY WE GO, "N$
185 [141]291:[141]200:[141]290
190 [153]"LOAD":[141]291
195 [137]500
200 [143] <YES> SOUND
202 SS[178]54272:[129]EE[178]SS[164]SS[170]28:[151]EE,0:[130]
204 [151]54296,15:[151]54277,42:[151]54278,250
206 [151]54276,23:[151]54273,23:[151]54272,191
208 [129]TM[178]1[164]150:[130]:[151]54276,32:[129]TM[178]1[164]250:[130]
210 [151]54296,0:[142]
220 [143] <NO> SOUND
222 SS[178]54272:[129]EE[178]SS[164]SS[170]28:[151]EE,0:[130]
224 [151]54296,15:[151]54277,18:[151]54278,242
226 [151]54276,33:[151]54273,4:[151]54272,48
228 [129]TM[178]1[164]300:[130]:[151]54276,32:[129]TM[178]1[164]400:[130]
230 [151]54296,0:[142]
240 [143] <BLIP> SOUND
242 SS[178]54272:[129]EE[178]SS[164]SS[170]28:[151]EE,0:[130]
244 [151]54296,6:[151]54277,42:[151]54278,250
246 [151]54276,23:[151]54273,23:[151]54272,191
248 [129]TM[178]1[164]30:[130]:[151]54276,32:[129]TM[178]1[164]50:[130]
250 [151]54296,0:[142]
260 [143] <DING> SOUND
262 SS[178]54272:[151]54296,15:[151]SS,50:[151]SS[170]1,35:[151]SS[170]2,0:[151]SS[170]3,8:[151]SS[170]5,0
264 [151]SS[170]6,10[172]16[170]9:[151]SS[170]4,14:[151]SS[170]4,65:[129]QQ[178]1[164]20:[151]SS[170]4,64:[142]
270 [143] <VERY WRONG> SOUND
272 SS[178]54272:[151]54296,15:[151]SS,32:[151]SS[170]1,3:[151]SS[170]2,128:[151]SS[170]3,13
274 [151]SS[170]5,4[172]16[170]0:[151]SS[170]6,10[172]16[170]8
276 [151]SS[170]24,15:[151]SS[170]4,65:[129]QQ[178]1[164]500:[130]:[151]SS[170]4,64:[142]
290 [129]TM[178]1[164]600:[130]:[142]
291 [129]TM[178]1[164]1000:[130]:[142]
292 [129]TM[178]1[164]2000:[130]:[142]
293 [129]TM[178]1[164]3000:[130]:[142]
300 [153]"LOAD":[141]290
302 [153]"LISTATNDD 5-7 (null)CLR"[163]13)""N$[163]32)"LISTRIGHT$TEM:"Y
305 [142]
310 [153]"OPEN            ";A$"+OPEN";B$"="Z$
400 [143] CORRECT
402 [153]"PRINT                  (null)VAL(null)                   WAIT":[141]200:[141]292
404 [153]"ONON                                        "
410 [142]
420 [151]53280,2:[141]220:[141]291
423 [153]"DEF                   (null)(null)!                  WAIT":[141]291
425 [153]"ONON                (null)RY AGAIN.              ":[141]292:[141]240
430 [153]"ONON                                        ONON"
435 [153]"ONONON       ":[142]
440 [153]"LOAD":[141]270:[141]290:[151]53280,13
445 [153]"         >>>> PRINT";A$" + PRINT";B$" =PRINT ";C$" <<<<"
450 [141]260:[141]293:[141]460:[151]53280,0:[142]
460 [141]291:[141]240
462 [153]"CONT      >>>>>   (null)(null)ATNLENVALCLOSEPEEKATN(null)    <<<<<        WAIT"
464 [161]R$:[139]R$[179][177][199](32)[167]464
466 [153]"ONON                                        ":[142]
468 [161]R$:[139]R$[179][177][199](32)[167]464
480 [141]291:[141]240
482 [153]"CONT      >>>>>  (null)(null)ATNLENVALCLOSEPEEKATN(null)  <<<<<          POKE(null)WAIT"
484 [161]R$:[139]R$[179][177][199](32)[175]R$[179][177]"T"[175]R$[179][177]"(null)"[167]484
486 [139]R$[178]"T"[167][141]800                              ":RETURN
487 IFR$="[212]"THENGOSUB800                              ":RETURN
488 [153]"ONON                                        ":[142]
500 [129]G[178]1[164]25
505 [141]300:Y[178]Y[170]1:P[178]0:[151]53280,0
510 [135]A$,B$,C$
520 [153]"              ";A$" + ";B$" =":[141]260
530 [153]"SYSON ";:[133]Z$
540 [139]Z$[178]C$[167][141]400:[137]590
545 [139]P[178]1[167][141]440:W[178]W[170]1:[137]590
550 P[178]P[170]1:K[178]K[170]1:[141]420:[137]530
590 [130]G
600 [153]"LOAD       ATNSTR$STR$ 5-7 (null)    (null)LEN(null)(null)VALCLOSEPEEK(null)ATN(null)STR$         WAIT"
602 [153]"CLR  "N$
605 D[178]K[171]W:R[178]D[170]W:C[178]25[171]R
610 [139]C[178][177]1[167][153]"PRINT  LENORRECT ON THE FIRST ATTEMPT ... "C
615 [139]D[178][177]1[167][153]"OPEN  LENORRECT ON THE SECOND ATTEMPT ..  "D
620 [139]W[178][177]1[167][153]"DEF  (null)ISSED COMPLETELY ..............  "W
623 [141]292
625 [139]C[178]25[167][153]"              VAL(null)LENVAL(null)(null)VAL(null)(null) (null)(null)(null)(null)!           WAIT"
630 [139]C[178]25[167][141]200:[141]292:[137]680
635 [139]C[178]24[167][153]"               (null)VAL(null)(null)CLOSECHR$(null)(null)STR$CLOSE(null)(null)(null)(null)   "
640 [139]C[178]24[167][141]200:[141]292:[137]680
645 [139]C[178]23[167][153]"               CLOSECHR$(null)(null)STR$CLOSE(null)(null)(null)(null)   "
650 [139]C[178]23[167][141]200:[141]292:[137]680
670 [153]" >>>>> (null)OU NEED MORE PRACTICE.
675 PRINT" >>>>> [208]LEASE PLAY THIS GAME AGAIN."
680 GOSUB460
700 PRINT"[158][147]  [217]OU HAVE A CHOICE:                    ":GOSUB292
705 PRINT"  [208]RESS  [210] [146] TO REPEAT [193][196][196] 5-7 [208]
710 [153]"SYS  (null)RESS  (null) WAIT TO RETURN TO DISK (null)VAL(null)(null),
715 PRINT"[158]  [208]RESS  [199] [146] TO GO TO THE [212][197][211][212]
720 [161]R$:[139]R$[179][177]"R"[175]R$[179][177]"(null)"[175]R$[179][177]"M"[175]R$[179][177]"(null)"[175]R$[179][177]"CHR$"[175]R$[179][177]"G"[167]720
725 [139]R$[178]"R"[167] [140]: Y[178]1:[137]500
730 [139]R$[178]"(null)"[167] [140]: Y[178]1:[137]500
735 [139]R$[178]"G"[167] [140]:[137]770
740 [139]R$[178]"CHR$"[167] [140]:[137]770
750 [153]"LOAD (null)ETURNING TO THE DISK MENU
755 LOAD"MENU",8
760 RUN
765 END
770 PRINT"[147] [199]OING TO THE [212][197][211][212]"
775 PRINT"[144]LOAD"CHR$(34)"ADD 5 TO 7  T"CHR$(34)",8:"
780 POKE198,0:POKE631,19:POKE632,131:POKE198,2
785 END
799 :
800 PRINT"[158][147]           [212][197][193][195][200][197][210][160][201][206][198][207][210][205][193][212][201][207][206]
805 [153]"OPEN  (null)HIS IS THE SIXTH OF A SERIES OF
810 PRINT"  SETS OF EXERCISES DESIGNED TO HELP
815 [153]"  'INTELLECTUALLY CHALLENGED' PUPILS
820 PRINT"  TO BUILD SIMPLE MATH SKILLS.
835 [153]"  VALACH SET CONSISTS OF A PRACTICEOPEN         AND A TESTOPEN MODULE.
840 PRINT"  [197]ACH MODULE CONCLUDES WITH A RECORD
845 [153]"  OF THE PUPIL'S PERFORMANCE."
850 [153]"  (null)HE NUMBER SEQUENCES ARE BASED ON
855 PRINT"  [210]OLISON'S [212][210][201][193][196] PRINCIPLE."
860 PRINT"  [212]HESE EXERCISES ARE DEDICATED TO
865 [153]"  LEFT$ELEN LEFT$ORN, FORMER PRINCIPAL OF
870 PRINT"  [204]YNDWOOD [208]UBLIC [211]CHOOL, [205]ISSISSAUGA,    [207]NTARIO, [195]ANADA.   1993"
890 GOSUB460:RETURN
1000 DATA "5","5","10"
1005 DATA "5","6","11
1010 [131] "5","7","12"
1015 [131] "6","5","11"
1020 [131] "6","6","12"
1025 [131] "6","7","13"
1030 [131] "7","5","12"
1035 [131] "7","6","13"
1040 [131] "7","7","14"
1045 [131] "6","7","13"
1050 [131] "6","6","12"
1055 [131] "6","5","11"
1060 [131] "5","7","12"
1065 [131] "5","6","11"
1070 [131] "5","5","10"
1075 [131] "6","7","13"
1080 [131] "6","6","12"
1085 [131] "6","5","11"
1090 [131] "5","7","12"
1095 [131] "5","6","11"
1100 [131] "5","5","10"
1105 [131] "7","5","12"
1110 [131] "7","6","13"
1115 [131] "6","5","11"
1120 [131] "5","7","12"
2000 [143] WHC 93 03 07 / 93 04 19